home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / asmmacros / am_02 / freemem.i < prev    next >
Text File  |  1995-03-19  |  602b  |  24 lines
  1.      NOLIST
  2. FreeMem     MACRO              ; 14 Sept 88
  3. *------------------------------; Start of FreeMem macro.
  4.                                ; Make A1 point to the memory block start
  5.                                ;  and put the block size in D0.
  6.      NOLIST
  7.      IFEQ ReEntrant-1
  8.      LIST
  9.      MOVEA.L \1.Adr(A5),A1
  10.      MOVE.L \1.Size(A5),D0
  11.      NOLIST
  12.      ENDC
  13.      IFNE ReEntrant-1
  14.      LIST
  15.      MOVEA.L \1.Adr,A1
  16.      MOVE.L \1.Size,D0
  17.      NOLIST
  18.      ENDC
  19.      LIST
  20.      CallLib FreeMem,exec      ; Call FreeMem.
  21. *------------------------------; End of FreeMem macro.
  22.      ENDM
  23.      LIST
  24.